/*  srfrrmul.cpp  by K.Tsuru  */
// function ID = 812  BRADIX
/*********************************
SRational class
oparator x*y
(x.num/x.den)*(y.num/y.den)
**********************************/
#ifndef SN_H
#include "sn.h"
#endif
SRational RRMult(const SRational& x, const SRational& y){
    SRational z;    //  z.reduceDone = FALSE;
    if(x.Sign(812) == 0){
        z.SetZero();    return z;
    }
    z.num = x.num*y.num;    z.den = x.den*y.den;
    z.reduce(false);
    return z;
}